unit utaskEdit;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ExtCtrls,
  StdCtrls, Buttons, Spin, DateTimePicker, SynHighlighterSQL, SynEdit, Types;

type

  { TFmTaskEdit }

  TFmTaskEdit = class(TForm)
    BTEdit: TButton;
    CBbakdatabase: TComboBox;
    CBBakType: TComboBox;
    CBExEType: TComboBox;
    CBShiLi: TComboBox;
    CBShiLiType: TComboBox;
    CheckBox27: TCheckBox;
    CheckDay1: TCheckBox;
    CheckDay10: TCheckBox;
    CheckDay11: TCheckBox;
    CheckDay12: TCheckBox;
    CheckDay13: TCheckBox;
    CheckDay14: TCheckBox;
    CheckDay15: TCheckBox;
    CheckDay16: TCheckBox;
    CheckDay17: TCheckBox;
    CheckDay18: TCheckBox;
    CheckDay19: TCheckBox;
    CheckDay2: TCheckBox;
    CheckDay20: TCheckBox;
    CheckDay21: TCheckBox;
    CheckDay22: TCheckBox;
    CheckDay23: TCheckBox;
    CheckDay24: TCheckBox;
    CheckDay25: TCheckBox;
    CheckDay26: TCheckBox;
    CheckDay28: TCheckBox;
    CheckDay29: TCheckBox;
    CheckDay3: TCheckBox;
    CheckDay30: TCheckBox;
    CheckDay31: TCheckBox;
    CheckDay32: TCheckBox;
    CheckDay4: TCheckBox;
    CheckDay5: TCheckBox;
    CheckDay6: TCheckBox;
    CheckDay7: TCheckBox;
    CheckDay8: TCheckBox;
    CheckDay9: TCheckBox;
    CheckMon1: TCheckBox;
    CheckMon10: TCheckBox;
    CheckMon11: TCheckBox;
    CheckMon12: TCheckBox;
    CheckMon2: TCheckBox;
    CheckMon3: TCheckBox;
    CheckMon4: TCheckBox;
    CheckMon5: TCheckBox;
    CheckMon6: TCheckBox;
    CheckMon7: TCheckBox;
    CheckMon8: TCheckBox;
    CheckMon9: TCheckBox;
    CheckWeek7: TCheckBox;
    CheckWeek1: TCheckBox;
    CheckWeek2: TCheckBox;
    CheckWeek3: TCheckBox;
    CheckWeek4: TCheckBox;
    CheckWeek5: TCheckBox;
    CheckWeek6: TCheckBox;
    CBSQLDBName: TComboBox;
    DTPKNextEXE: TDateTimePicker;
    DTPK1: TDateTimePicker;
    EDSQLFilePath: TEdit;
    EDShiLiname: TEdit;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label10: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label8: TLabel;
    LBSQLDBname: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    ListView1: TListView;
    ListViewControlCenter: TListView;
    Memo1: TMemo;
    MemoSQL: TMemo;
    OpenDialogSqlFile: TOpenDialog;
    PageControlSelectDB: TPageControl;
    PageControlBakTarget: TPageControl;
    Panel11: TPanel;
    Panel12: TPanel;
    Panel15: TPanel;
    Panel16: TPanel;
    Panel17: TPanel;
    Panel18: TPanel;
    PanelSqlRight: TPanel;
    Panel13: TPanel;
    Panel14: TPanel;
    PGTime: TPageControl;
    Panel1: TPanel;
    Panel10: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    RBONCE: TRadioButton;
    RBMinute: TRadioButton;
    RBHour: TRadioButton;
    RBDay: TRadioButton;
    RBMonth: TRadioButton;
    RBWeek: TRadioButton;
    SBTaskOK: TSpeedButton;
    SBTaskCancle: TSpeedButton;
    SEDInterPd: TSpinEdit;
    SPBBakFtp: TSpeedButton;
    SPBBakBaiduDisk: TSpeedButton;
    SPBOpenSqlFile: TSpeedButton;
    SPBBakNetsahre: TSpeedButton;
    SPBTaskControlDel: TSpeedButton;
    SPBBakQiNiu: TSpeedButton;
    TabBaseInfo: TTabSheet;
    TabListView: TTabSheet;
    TabTreeview: TTabSheet;
    TabTimePriod: TTabSheet;
    TabBakDatabase: TTabSheet;
    TabInterPd: TTabSheet;
    TabSheetControlCenter: TTabSheet;
    TabWeek: TTabSheet;
    TabMonth: TTabSheet;
    TreeView1: TTreeView;
    procedure BTEditClick(Sender: TObject);
    procedure CBbakdatabaseChange(Sender: TObject);
    procedure CBExETypeChange(Sender: TObject);
    procedure CBShiLiChange(Sender: TObject);
    procedure CBShiLiTypeChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RBMinuteClick(Sender: TObject);
    procedure RBHourClick(Sender: TObject);
    procedure RBDayClick(Sender: TObject);
    procedure RBMonthClick(Sender: TObject);
    procedure RBONCEClick(Sender: TObject);
    procedure RBWeekClick(Sender: TObject);
    procedure SBTaskCancleClick(Sender: TObject);
    procedure SBTaskOKClick(Sender: TObject);
    procedure SPBBakBaiduDiskClick(Sender: TObject);
    procedure SPBBakBaiduDiskContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure SPBBakFtpClick(Sender: TObject);
    procedure SPBBakNetsahreClick(Sender: TObject);
    procedure SPBOpenSqlFileClick(Sender: TObject);
    procedure SPBTaskControlDelClick(Sender: TObject);
    procedure SPBBakQiNiuClick(Sender: TObject);
    procedure TabWeekContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
  private

  public

  end;

var
  FmTaskEdit: TFmTaskEdit;

implementation

{$R *.lfm}

{ TFmTaskEdit }

procedure TFmTaskEdit.SBTaskOKClick(Sender: TObject);
begin
  CBShiLi.Items.AddObject();
  Notebook1.ActivePage ;
end;

procedure TFmTaskEdit.SPBBakBaiduDiskClick(Sender: TObject);
begin

end;

procedure TFmTaskEdit.SPBBakBaiduDiskContextPopup(Sender: TObject;
  MousePos: TPoint; var Handled: Boolean);
begin

end;


procedure TFmTaskEdit.SPBBakFtpClick(Sender: TObject);
begin

end;

procedure TFmTaskEdit.SPBBakNetsahreClick(Sender: TObject);
begin

end;

procedure TFmTaskEdit.SPBOpenSqlFileClick(Sender: TObject);
begin

end;

procedure TFmTaskEdit.SPBTaskControlDelClick(Sender: TObject);
begin

end;

procedure TFmTaskEdit.SPBBakQiNiuClick(Sender: TObject);
begin

end;

procedure TFmTaskEdit.TabWeekContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin

end;

procedure TFmTaskEdit.CBShiLiTypeChange(Sender: TObject);
begin

end;

procedure TFmTaskEdit.CBbakdatabaseChange(Sender: TObject);
begin

end;

procedure TFmTaskEdit.CBExETypeChange(Sender: TObject);
begin

end;

procedure TFmTaskEdit.CBShiLiChange(Sender: TObject);
begin

end;

procedure TFmTaskEdit.BTEditClick(Sender: TObject);
begin

end;

procedure TFmTaskEdit.FormCreate(Sender: TObject);
begin

end;

procedure TFmTaskEdit.RBMinuteClick(Sender: TObject);
begin

end;

procedure TFmTaskEdit.RBHourClick(Sender: TObject);
begin

end;

procedure TFmTaskEdit.RBDayClick(Sender: TObject);
begin

end;

procedure TFmTaskEdit.RBMonthClick(Sender: TObject);
begin

end;

procedure TFmTaskEdit.RBONCEClick(Sender: TObject);
begin

end;

procedure TFmTaskEdit.RBWeekClick(Sender: TObject);
begin

end;

procedure TFmTaskEdit.SBTaskCancleClick(Sender: TObject);
begin

end;


end.

